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Subscription Renewals 


If your address label shows a number 8209 or smaller in the 
upper right corner, it is time to renew. That is $15 bulk mail 
in the USA; $18 First Class in USA, Canada, and Mexico; $28 to 
other countries. 


New Macro Cross Assemblers Available 


There are now three cross-assembler modules ready for the S-C 
Macro Assembler, and more to come. Each cross-assembler disk 
costs $32.50 to registered owners of the S-C Macro Assembler. 
You get both regular and language card versions, with 
documentation of the special features and differences. 


S-C Macro Assembler Version 1.0 


Search and Perform Subroutine..........+++eBOb Sander-Cederlof 


When writing an editor or other single-keystroke command 
system, a very common need is a subroutine which branches 
according to the value of a character. In Pascal and some 
other languages there is even a special statement for this 
programming need: CASE. You might do it like this in 
Applesoft: j 


1000 GET AS 

1010 IF A$ = "A" THEN 2000 
1020 IF AS = "C" THEN 3000 
1030 et cetera 


.You will often find the equivalent code in assembly language 
programs: 


1000 LDA CHARACTER 
1010 CMP #'A 

1020 BEQ CHAR.WAS.A 
1030 CMP #'°C 

1040 BEQ CHAR.WAS.C 


1050 et cetera 


Of course, it frequently happens that the number of different 
values is small, and the code sequence above with several 
CMP-BEQ pairs is the most efficient. It loses a little of its 
appeal, though, when you have to do it for more than about ten 
different values. And what if the branch points are too far 
away for BEQ relative branches? Then you have to write: 


1000 LDA CHARACTER 

1010 CMP #'A 

1020 BNE .1 

1030 JMP CHAR.WAS.A 
1040 .1 CMP #'C 

1050 BNE .2 

1060 JMP CHAR.WAS.C 


1070 .2 et cetera 


That takes seven bytes of program for each value of the 
character, 


Personally, I like to put the possible values and the 
corresponding branch addresses in a table, and search that 
table whenever necessary. Each table entry takes only three 
bytes. If the subroutine is used with several tables, and if 
there are a lot of possible values, then the tabular method 
saves a lot of memory. 


I used the tabular method in my still-in-development 
word-processor. To speed and simplify the coding of the table 
entries, I wrote a macro definition JTBL as follows: 


1020 -MA JTBL 
1030 DA #$J]1,J)2-1 
1040 . EM 
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S-C Macro Assembler..... @eeeoeoe0aoeeeereesee@eseeeseeveeesvseseeseseevoeeseeoepeoeeeeoee eee @ eee - 980.00 
S-C Macro Cross Assembler Modules 
6800/6801/6802 Version. @eeeeeeoeseeseeVeseseesvpeesosseeeeeeseeseeeeeeeeee 8 $32.50 
6809 VOU SOM seb wok oS 65 6 ioe 6 -OR ONS WO LS SOLS SIS AS Ok Se DSS Wis oS WER COLE DU 
2-80 NOLS LON eos oe Sree he ee eres Sw EW be ee Be Hae OOS OS SRO ewe OO LeU 
Requires ownership of S-C Macro Assembler. 
Each disk includes regular and language card versions. 


Ss-C ASSEMBLER II Version Be Sk eG S 66:0 Se: acre a Wave e GRO Olea OS eels See ODO SOU 

Upgrade from Version 4.0 to MACRO < 655 S508 66S oS Se oie ewe we eee COLT SDU 

Source code of Version 4.0 OM diSk...c.ccccccccccvcccscccsccsssecees Ie 00 
Fully commented, easy to understand and modify to your own tastes. 


AAL Quarterly DISK 86 c.o oS 666.566 Soe 6 OR Wwe KOON S59 Ow Oe oS ow OEEN $15.00 
Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 

QOD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 


Double Precision Floating Point for AppleSOft...cccccccccccccesccee 90.00 
Provides 2l-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer Research)......(regular $79) $49.00 
Special price to AAL readers only, until 9/1/82! 
Source Code for FLASH! Runtime Package... .ccccccccccccccccccccccccse 939200 


Super Disk Copy III (Sensible Software)........-...-(reg. $30.00) $27.00 
ES-CAPE: Extended S-C Applesoft Program EditOr....ccccccccccceeese 940.00 


Blank Diskettes (with hub ringsS).....ccceeceeeeee package Of 20 for $50.00 
Small 3-ring binder with 10 vinyl disk pages and disks......eec.eeee$36.00 


Ashby Shift-Key MOG vcs 6666 6S. SS we aw eS SEADOO. HCO EE OER SOLO CUO 

Paymar Lower-CaSe Adapter..cccccccccccccccccccccccevescccccvescccsee sso 90 
For Apples before Revision 7 only 

Lower-Case Display Encoder ROMS aoe 5-6-5. aceon Soe 6 oo Os wR WS OO eee eee OU 
Works only Revision level 7 Apples. Replaces the encoder ROM. 


Diskette Mailing ProtectOrs...cccccccccccccseccsceseel0-99: 40 cents each 
100 or more: 25 cents each 
Corrugated folder specially designed for mailing mini-floppy 
diskettes. Pits in standard 6x9-inch envelope. (Envelopes 
5-cents each, if you need then.) 


Books, BOOKS, BOOKS.....ccssccccccccecsseeesecompare Our discount prices! 
"Beneath Apple DOS", Worth & Lechner....ccccsccccecee ($19.95) $18.00 
“Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
“Apple Graphics & Arcade Game Design", Stanton.......($19.95) $18.00 
"Assembly Lines: The Book", Roger Wagner.....eeeeeeee ($19.95) $18.00 
“What's Where in the Apple", William Leubert.........($14.95) $14.00 
"6502 Assembly Language Programming", Leventhal......($16.99) $16.00 
"6502 Subroutines", Leventhal... .cccccccccccessscoees ($12.99) $12.00 
“MICRO on the Apple--1", includes diskette.......ee.- ($24.95) $23.00 
"MICRO on the Apple--2" v includes diskette. ee ee ($24.95) $23.00 
"MICRO on the Apple--3", includes diskette...........($24.95) $23.00 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
eee (214) 324-2050 We take Master Charge and VISA *** 
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This defines a macro JTBL with two parameters. The first one 
will be the hexadecimal value to compare the test-character 
with, and the second one will be the branch address for that 
value. For example, if I write the macro call: 


1400 >JTBL 86,FLIP.CHARS 
the S-C Macro Assembler will generate: 
DA #$86,FLIP.CHARS-1 
The “"-1" is appended to each branch address in the table, 
because I use the PHA-PHA-RTS method to perform the branch. 
Before I go any farther, here is the search and branch 
subroutine: 


1220 SEARCH.AND.PERFORM.NEXT 
1230 INY POINT TO NEXT ENTRY 


1240 INY 

1250 INY 

1260 SEARCH.AND. PERFORM 

1270 LDA T.BASE,Y GET VALUE FROM TABLE 
1280 BEQ .1l NOT IN THE TABLE 
1290 CMP CURRENT.CHAR 

1300 BNE SEARCH.AND. PERFORM. NEXT 

1310 .1 LDA T.BASE+2,Y LOW-BYTE OF BRANCH 
1320 PHA 

1330 LDA T.BASE+1,Y HIGH-BYTE OF BRANCH 
1340 PHA 

1350 LDY #0 (SINCE MOST BRANCHES WANT Y=0) 
1360 RTS DO THE BRANCH! 


There are so far four different value-branch tables in my word 
processor. Here is an abbreviated listing: 


1380 T.BASE 
1390 T.ESCO >JTBL 81,AUXILIARY.MENU 


1400 >JTBL 82,SCAN.BEGIN 

1410 >JTBL 83,TOGGLE.CASE.LOCK 
1540 >JTBL 9B,ESCO.ESC 

1550 >JTBL 00,SC.BELL 

1560 #-------------------------------- 
1570 T.ESC2 >JTBL 81,AUXILIARY .MENU 
1690 >JTBL EB, SCAN.RIGHT 

1700 >JTBL ED,SCAN.DOWN 

1710 >JTBL 00,ESC2.END 

1720 *-------------------------------- 
1730 T.MAIN >JTBL C4,MAIN.DOS 

1740 >JTBL C5,MAIN.EDIT 

1800 >JTBL D3,MAIN.SAVE 

1810 >JTBL 00,MON.BELL 

1820 *-------------~------------ --+--- 
1€30 T.AUX >JTBL C3,COPY.BLOCK 

1840 >JTBL C4,DELETE.BLOCK 
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1890 >JTBL D3,SAVE.SEGMENT 
1900 >JTBL 00,SC.BELL 


Notice that each of the four tables ends with a 00 value. The 
branch address after the 00 value tells where to branch if the 
current character does not match any values in the table. 


When I want to compare the current character with entries in 
the T.MAIN table, here is how I do it: 


2000 LDY #T.MAIN-T.BASE 
2010 JSR SEARCH.AND. PERFORM 


The LDY instruction sets Y to the offset of the table from 
T.BASE, and the search subroutine references the table relative 
to T.BASE. I use JSR to call the search subroutine. The search 
subroutine uses PHA-PHA-RTS to effectively JMP to the chosen 
branch address. And then the value processor ends with RTS to 
return to the next line after the JSR SEARCH.AND. PERFORM. 


Counting all four tables, I have 45 branches, occupying 3*45 = 
135 bytes. If I had used the CMP-BEQ method, which occupy four 
bytes per value, it would have taken 4*45 = 180 bytes. The 
subroutine is only 23 bytes long, so I saved 22 bytes. But if 
I needed the longer CMP-BNE-JMP sequences throughout, I would 
have had 7*45 = 315 bytes! Wow! Long live tables! 


Tables have even more advantages. For one, they are a lot 
easier to modify when you want to add or delete a value. For 
another, the program is easier to read when there is no rat's 
nest of branches to try to unravel. For me, it almost makes 
the assembly listing as easy to read as the reference manual! 


Notice that it would be possible to overlap tables using my 
subroutine. I might need at some times to search for 13 
different values, and at others to search for only 7 of those 
Same values, with the same branches. If so, the seven entries 
in common would be grouped at the end of the 13-entry table. 
The table has two labels, like this: 


3000 T.13 >JTBL C1,DO.A 


3010 >ITBL C4,D0.D 
3050 >JTBL CF,DO.0 
3060 T.7 >JTBL C2,D0.B 
3070 >ITBL C5,D0.E 
3120 " >JTBL D7,DO.W 
3130 >ITBL 00,DO.NOTHING 


What about speed? Well, it is pretty fast too. The 
CMP-BNE-JMP takes five cycles for each value that does not 
compare equal, and finally seven cycles for the 6dbne which 
compares equal. If the tenth comparison bingos, that is 9*5+7 
= 52 cycles. The subroutine takes 171 cycles for the same 
search, Over three times longer, but still less that 120 
microseconds longer. You would have to perform the search over 
8000 times in one day to add a whole second of computer time! 
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AUTO-MANUAL Toggle for S-C Macro Assembler........R. F. O'Brien 


Here is a small program to accompany Bill Morgan's Automatic 
Catalog in the June '82 issue of AAL. This routine adds an 
AUTO/MANUAL command toggle to the S-C Macro Assembler. Using 
CTRL-A when the cursor is at the beginning of a line enters the 
AUTO line numbering mode and waits for input of a line number 
and/or RETURN. Entering another CTRL-A while in AUTO mode and 
at the start of a line executes a MANUAL command. 


In addition, I have added some code to provide slow and fast 
listings at a single keypress. CTRL-S does a SLOW LIST 
command, which is cancelled by a ‘RETURN’ during listing. 
CTRL-L will provide a listing at normal speed (assuming the 
slow list has been cancelled.) 


The patch is implemented as follows: 


1. Enter the S-C Macro Assembler 

2. :$101D:33 N 1000G 

3. :BLOAD AUTO/MANUAL PATCH 

4. :$138D: 4C 28 32 (JMP PATCH instead of JSR BELL) 
5. :BSAVE AUTO/MAN S-C MACRO ASM,A$1000,L$2300 


Note: You may omit step 2 if you have already installed Bill's 
automatic CATALOG. 


OFTEN WONDER HOW MACHINE LANGUAGE PROGRANS WORK? 
Well stop wendering and do something about it! Use DISASH to convert 4502 machine code into seaningful, 
syabolic source. Create a text file which is directly compatable with DOS ToolKit, LISA and S-C (both 4.0 
& Macro) Asseablers. DISASN handles data tables, displaced object code and even lets you substitute 
MEANINGFUL labels of your own choice (100 commonly used Monitor & Pg Zero names included in Source fora to 
get you rolling). An address-based cross reference table provides even sore insight into the inner 
workings of machine language prograas. DISASH is an invaluable aid for both the novice and expert alike. 
DISASM (Version 2.2): $30.00 


The ’ MIRROR’: Firmware for Apple-Cat 
Comaunications ROM plugs directly into Novation’s aodea card. Three basic sodes: Duab Terminal, Reaote 
Console & Programeable Nodes. Added features includes Printer buffer, Pulse or Tone dialing, true 
dialtone detection, audible ring detect and ring-back option. Supports VIDEX 80-coluan board and Apple's 
Coma card comaands. (Hardware differences prevent 1002 interchangability with Coase card.) 
ROM & User’s Manuals $29.00 


Utilities For Your S-C Assembler (4.0) 
SC.GSR: A Global Search and Replace Eliainates Tedious Nanual Renaming Of Labels......ss0002. $20.00 
SC.XREFs A Linenuaber-Based Global Cross Reference Table For Coaplete Source Docuaentation... $20.00 
SC. TAB: Tabulates Source Files Into Neat, Readable Fora. Encourages Fast, Free-Foraat Entry. 615.00 
SC UTILITY PAKs Includes All Three Utilities Described Above (You Save 610.00) csccssscsesere B495200 


Avoid A $3.00 Shipping/Handling Charge By Mailing Full Payaent With Order 
RAK - WARE 


41 Ralph Road 
West Orange NJ 07052 


$8888 SAY YOU SAW IT IN APPLE ASSEMBLY LINE’! seese 
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1000 8---2- ne en nnn nn nnn n= 
ace AUTO/MANUAL TOGGLE 
iene # BY ROBERT F. O'BRIEN 
site 14, CLONSHAUGH LAWN, DUBLIN 5. 
1050 Weeeeecce cece ce cce ke ce eee eee 
1060 -OR $3228 
1 ~TF AUTO/MANUAL PATCH 
1080 B---n nnn nn nn ne rn nnn 

0024- 1090 CH -EQ $24 

11D2- 1100 SC.SLOW -EQ $11D2 

135E- 1110 SC.REENTER .EQ $135E 

13C3- 1120 SC.RETURN .EQ $13C3 

152Ah=- 1130 SC.INSTALL .EQ $152A 

183F- 1140 SC.LIST -EQ $183F 

FF3A-~ in MON.BELL  .EQ $FF3A 
ie AUTO. MANUAL. COMMAND 

228- C9 81 1180 CMP #$81 CTRL=-A? 

22A- FO OE 1190 BEQ AUTO.TOGGLE 

322C=- C9 8C 1200 CMP #$8C CTRL-L? 

322E- FO 41 1210 aoe rene 

33 O- C9 if 1220 $33 CTRL=-S? 

232- FO 12 % ‘ BEQ si0 LIST 

3234- 20 3A FF 1250 BACK JSR MON.BELL 

3237- AC 5E 13 Neue JMP SC.REENTER BACK TO ASSEMBLER 


323A- A5 24 1290 CH 
393C- C9 01 1300 CMP #1 BEGINNING OF LINE? 
323E~ FO 06 1310 BEQ AUTO.CMD 
320- C9 06 1320 CMP #6 AFTER LINE NUMBER? 
3942— FO 16 1330 BEQ MANUAL. CMD 
224h- DO EE 1340 BNE BACK 
1300 AUTO .CMD 
3246- A2 00 1370 X #0 
3248- BD 55 32 1380 .1 LDA AUTO.TEXT,X |GET CHARACTER 
24B- 20 2A 15 13 0 JSR SC NST ALL. PROCESS CHAR 
24E- EO 05 1460 CPX #5 
3950- 90 Fo 1410 BCC .1 
252~ lic SE 13 1420 JMP SC.REENTER 
255- C1 D5 D 
3258- CF AO 1430 AUTO.TEXT .AS -/AUTO / 
1450 MANUAL.CMD 
325A- A2 00 1460 X #0 
355C- 86 24 1470 STX CH GO TO START OF LINE 
295E- BD 6B 32 1480 .1 LDA MANUAL. TEXT ,X 
3261- 20 2A 15 1490 JSR SC. INSTALL 
3264~ EO 06 1500 CPX #6 
3266- 90 F6 1510 BCC .1 
3268- fic C3 13 1520 JMP SC.RETURN 
326B- CD C1 CE 
326E- D5 C1 C 1530 M MANUAL. TEXT .AS -/MANUAL/ 
3271- AS 24 1550 LIST LDA CH 
3273- C9 01 1560 CMP #1 BEGINNING OF LINE? 
2975- DO BD 1570 BNE BACK NO, RETURN TO ASSEMBLER 
3977~ 20 3F 18 1580 JSR SC.LIST 
327A- HC C3 13 1590 . JMP SC.RETURN 
1610 SLOW.LIST 
327D- AS 24 1620 A CH 
327F- C9 01 1630 CMP #1 
281- DO BI 1640 BNE BACK 
283- 20 D2 11 1650 JSR SC.SLOW SET SLOW MODE 
2986- 20 3F 18 1660 JSR SC.LIST 
3289- 4c C3 13 1670 JMP SC.RETURN 
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QuIGCKTRACE 


relocatable program traces and displays the actual machine operations, while It is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step Information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until itis desired. Debugged routines run at near 
normal speed until one of the stopping cond: 
itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE Is relocatable to any free part of 
memory. its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE Is 
alive. 


QUICK TRACE Is a beautiful way to show the 
incredibly complex sequence of operations that 
a computer goes through in executing a program 


QuIcKTRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 


See these programs at participating Computerland and other 
fine computer stores. 


Anthro - Digital Software, Inc. 
P.O. Box 1385 Pittsfield, MA 01202 
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Free Space Patch For the S-C Assembler...........Mike Sanders 


Volume 5, Number 6 of Call A.P.P.L.E. has an article giving a 
DOS patch to replace the volume number printed during catalog 
with number of free sectors remaining on the disk. 


The routine as published works for both Applesoft and Integer 
BASIC, but does not work with the language card version of the 
S-C Assembler. Only a few changes were needed to make it work 
with all three. 


A call to Bob gave me the location of the decimal print routine 
in the S-C Macro Assembler, Language Card Version. 


The original code as published in CAll A.P.P.L.E. checked 
location $E006 to see what language is in use. My code looks 
at $E001, which has a different value in each of the three: 


Language SEOO1 
Applesoft: $28 

Integer BASIC: $00 

S-C Macro Assembler: $94 


The code in lines 1320-1370 checks which language is in use and 
jumps to the right routine. I also changed the zero page 
locations used to count the number of free sectors because the 
S-C Assembler print routine expects the two~byte value to be in 
$D3 and $D4. 


The rest of the code works as explained in the Call A.P.P.L.E. 
article. I refer you to it for more details and as an 
excellent lesson on reducing the size of code. 


Install the two patches to DOS by BLOADing the two binary files 
FREE.SECTORS.1 and FREE.SECTORS.2. The type CATALOG to see 
the how many free sectors you have. 


1000 $SAVE S.FREE SECTORS 
1020 § FREE SECTORS PATCH FOR DOS 3.3 
00D3- i9k0 LOBYTE -EO $02 
OoD3- 1050 HIBYTE "EQ $D 
B3F2- 1070 SECTOR.MAP .EQ $B3F200 
E001- 1080 LANG.ID  .EQ $E001 +s“ LANGUAGE ID 
E51B- 1090 PRT.INT | :EQ $E51B INTEGER BASIC PRINT ROUTINE 
ED24- 1100 PRT.FP "EQ $ED24 APPLESOFT PRINT ROUTINE 
DEOO- 1110 PRI.SC “EQ $DEOO S-C ASSEMBLER PRINT ROUTINE 
1130 .OR 9 
119 “TF FREE.SECTORS. 1 
1160 FREE.SECTOR. PATCH 
BA69- AO C8 1170 LDY #$C8 
BA6B- B9 F2 B3 1180 .1 LDA SECTOR.MAP,Y 
BA6E- FO 1190 BEO .4 NO FREE SECTORS IN THIS BYTE 
BA70- OA 1200 . ASL SHIFT INTO CARRY 
BA71- 90 FD _—swx1210 BCC .2 SECTOR IN USE 
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BAT3- 48 1220 PHA SECTOR FREE 
B E6 


ATA- D3 1230 INC LOBYTE COUNT IT 
BA76- DO 02 1240 BNE .3 
BAT8- E6 D4 1250 INC HIBYTE 
BATA- 68 1260 .3 PLA SECTOR MAP BYTE AGAIN 
BATB- DO F3 1270 BNE .2 IF ANY LEFT 
BATD- 88 1280 .4 DEY NEXT BYTE OF SECTOR MAP 
BATE- DO EB 1290 BNE .1 
BASO= A6 DB 1300 LDX LOBYTE VALUE IN X AND A 
BA82~ A5 D 1310 LDA HIBYTE 
BA84=- AC 01 EO 1320 LDY LANG.ID CHECK WHICH LANGUAGE 
BA87- 30 08 1330 I SM 94: S-C ASSEMBLER 
BA89- FO ‘ i3 0 BEQ INTEGR 00: INTEGER BASIC 
BA8B- 4C 24 ED 1350 JMP PRT.FP 28: APPLESOFT 
BA8E- 4C 1B E5 1360 INTEGR JMP PRT.INT 
BAQ1=- 4C 00 DE 1360 SCASM JMP PRT.SC 
oPAG -OR $ADB9 
1400 TF FREE.SECTORS.2 
1410 Seen nnn nnn nnn ene ne 
ADB9- EA 1420 NOP FILLER 
ADBA- AQ 00 vee LDA #0 ZERO THE COUNT 
ADBC- 95 D 1440 STA LOBYTE 
ADBE- 85 D 1450 STA HIBYTE 
ADCO- 20 69 BA 1460 JSR FREE.SECTOR. PATCH 


DO YOU OWN ONE OF THOSE SMART PRINTERS? 
(But Are Using It With A ’Duab’ Interface Board?) 
Now you can get the @ost out of your EPSON, NEC, C.ITOH and OKI printers with the PERFORMER board for the 
Apple II and Apple !1 Plus. This board plugs into any Apple slot and turns your ‘duab’ printer interface 
into a ‘seart’ one. Here’s an exaaple set-up aenu for the NEC 8023A: 


PICA ON % Easy to use! Menu-driven with siaple comaands 
ELITE OFF $ Replaces tedious manual printer set-up 
CONDENSED OFF % No need to reseaber those ESC’ comaand sequences 
ENLARGED OFF $ The PERFORMER is in ROM so its always ‘on-line’ 
ENHANCED OFF ¢ Easy selection of available printer fonts 
LINES/INCH SIX % Also controls print format with dynasic defaults 
PAGE NO. 1 % Defaults are easily overridden for maxiaue versatility 
COLUMNS 80 ¢ Optional Header line prints Title, Date & Pg 
INDENT § Provides Pgi/Pg 2 TEXT or GRAPHICS screen duaps 
FORM LENGTH % Large foraat graphics in Positive or Negative isages 
LINES/PAGE § Compatible with Apple, Tyaac, Epson, Microtek and 
FORM FEED t siailar ’duab’ Centronics type parallel I/F boards 
DISPLAY 8 SPECIFY printer: EPSON MX80 W/Graftrax-80 
GRAPHICS % EPSON MX100, EPSON MX80/MX100 W/Graftrax Plus 
DUNP # NEC 8023A, C. toh 8510 (ProWriter) 

% OKI Nicroline 82A/83A W/OKIGRAPH 


PERFORMER BOARD: $49.00 
Avoid A $3.00 Shipping/Handling Charge By Mailing Full Payaent With Order 


RAK - WARE 
41 Ralph Road 
West Orange NJ 07052 
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The Macro-Videx Connection... ccceccccvcccseecesseeDON Taylor 


It seems that whenever I purchase a new hardware product for my 
Apple, I spend countless hours honing my most precious software 
tools to make them compatible with it. I purchased my Videx 
Videoterm card for use with Pascal, and had no intention of 
using it with the S-C Assembler. Then one fateful day I made a 
temporary patch to Version 4.0 -- just to see what it would 
look like -- and I was immediately hooked.... 


You won't believe what it's like to assemble with 80 columns of 
display! You can actually write source files that are legible 
on the screen, with no wraparound on comments -- even during 
assembly. What you see on the display is what you would see on 
a printer, only cleaner. 


When I upgraded to the S-C Macro Assembler, I was compelled to 
produce a configuration file that would modify the new 
assembler to work with the Videoterm board. The resulting 
source file is included with this article. 


The assembled SCM80 file will reconfigure a copy of the S-C 
Macro Assembler Version 1.0 that is currently resident in 
memory (for more about this concept, see "Controlling Software 
Configuration", AAL April '82). 


Once the mods are installed you will be able to use your Videx 
for everything except: (1) Using the Escape-L sequence to LOAD 
a disk file whose name appears on the display, and (2) Using 
the copy key (right arrow). You will still be able to use 
Escape-L to generate the normal dashed comment line, and you 
can use the other escape functions to move the cursor and clear 
portions of the screen, 


SCM80 will display control characters (and other selected 
strings intended to be so) in inverse on your screen, provided 
you have the standard (inverse) alternate character generator 
ROM installed in your Videoterm. If you have some other ROM 
installed, these characters and strings may be printed in 
Chinese. In this case you may want to modify the new character 
output routine! 


SCM80 will also permit painless switching of case while using 
the assembler. A control-A keypress will always be recognized 
as a "shift lock" signal, while a control-Z will be treated as 
a "shift unlock". This feature makes it easy to write 
easy-to-read source files. 


The assembled SCM80 code is moved into memory immediately 
following the assembler, and is located at one of two places, 
depending on which flavor (vanilla or language card) of the 
assembler you're using. The flavor of the configuration file 
is made to match that of the assembler through the use of a 
conditional flag (LCVERSION) and several conditional assembly 
statements, Another equate variable, SLOTNUM, allows you to 
specify the slot in which your Videx board resides. 


Apple Assembly Line....August, 1982....Copyright (C) S-C SOFTWARE....Page 1) 


APPLE PERIPHERALS ARE OUR ONLY BUSINESS 


TIME It 
THE MOST POWERFUL, EASIEST TO USE CLOCK FOR YOUR APPLE 


@ Time in hours, minutes and seconds. 
@ Date with year, month, day of week and leap year. 


@ Will enhance programs for accounting, time and energy management, 
remote control of appliances, laboratory analysis, process control, 
and more. 


@ 24-hour military format or 12-hour with AM/PM indication. 


@ User selectable interrupts permit foreground/background operation 
of two programs simultaneously. 


@ Crystal controlled for .0005% accuracy. 
@ Easy programming in basic. 


@On board batlery backup power for over four months power off 
operation (battery charges when Apple is on). 


@ Twenty-seven page operating manual included with many examples 
of programs to use with your Appte in any configuration. 

@ Includes disk containing a DOS Dater and many other time oriented 
utilities plus over 25 user contributed programs al no extra cost. 


PRICE $129.00 


SUPER MUSIC SYNTHESIZER 


@ Complete 16 volce music synthesizer on one card. Just plug it into 
your Apple, connect the audio cable (supplied) to your stereo and 
boot the disk supplied and you are ready to input and piay songs. 

@ t's easy to program music with our compose software. You will start 
right away at inputting your favorite songs. The Hi-Res screen 
shows what you have entered in standard sheet music format. 


@We give you lots of software. In addition to Compose and Play 
programs, the disk 1s filled with songs ready to run 


@ Easy to program in basic to generate complex sound effects 

® Four white noise generators which are great for sound effects. 

@ Piays music in true stereo as well as true discrete quadraphonic. 

@ Envelope control. 

@ Will play songs written for ALF synthesizer (ALF software will not 
take advantage of all the features of this board. Their software 
sounds the same in our synthesizer.) 

@ Automatic shutoff on power-up or if reset is pushed. 

@ Many many more features. 


PRICE $159.00 


ANALOG TO DIGITAL CONVERTER 


@ 8 Channels 

@ 8 Bit Resolution 

@ On Board Memory 

@ Ratiometric Capability 
@ Fast Conversion (.078 ms per channel) 


@Eliminates The Need To Wait For A/D 
Conversion (just PEEK at data) 


@ AJD Process Totally Transparent to Apple 
(looks like memory) 


The analog to digital conversion takes place on a continuous, channel 
sequencing basis. Data is automatically transferred to on board 
memory at the end of each conversion. No A/D converter could be 
easier to use. 


Our A/JO board comes standard with 0, 10V full scale inputs. These 
inputs can be changed by the user to 0, -10V, or -5V, + 5V or other 
fanges as needed. 

The user connector has + 12 and -12 volts on it so you can power your 
sensors. (These power sources can be turned off with on board dip 
switch). 

Accuracy 0.3% input Resistance 20K Ohms Typ 
A few applications may include the monitoring of @ flow © 
temperature @ humidity @ wind speed @ wind direction @ light 
intensity @ pressure ® RPM @ soil moisture and many more. 


PRICE $129.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Provides 8 buffered oulputs to a standard 16 pin socket for standard 
dip ribbon cable connection. 


@ Power-up reset assures that all outputs are off when your Apple is 
first turned on. 


@ Features 8 inputs that can be driven from TTL logic or any § volt 
source. 


@ Your inputs can be anything from high speed logic to simple 
switches. 


@ TOTALLY compatible with all CP/M software. 
@ Executes the full 2-80 and 8080 instruction set. 
@Allows you to run your Apple CP/M based programs. 


@ Does EVERYTHING the other 2-80 boards do, plus supports Z80 
Interrupts. 


@ Hardware and software settable switch options. 


® Anon-card PROM eliminates many I.C.'s for a cooler, less power 
consuming board. 


@ Complete documentation inctuded. (user must furnish software) 


2-80 CARD 


@ Very simple to program, just PEEK at the data. 


@ 4 other outputs are also provided. User 1, reset, interrupt request. 
non-maskabie interrupt. 


@ Now on one card, you can have 8 digital outputs and 8 digital inputs 
each with its own connector. The super input/output board is your 
best choice for any control application. 

PRICE $62.00 


seenaaterare 
: Tada 
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Rveterererstery 


‘eg - 
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PRICE $139.00 


Since our inception. Applied Engineering has continually expanded its line of Apple pernipherais bringing you easy-to-use designs 

We are the innovalors not the imitators Ulitizing state-of the-art technologies Applied Engineering 1s continually improving its products. The above represents our most 
teceni development. Applied Engineering olfers you the highest quality periphe-als at the lowest possible price 

Applied Engineering's products are fully tested with complete documentation and available for immediate delivery All products are guaranteed with a one year 


warranty 


Send Check or Money Order to: 
APPLIED ENGINEERING 


All Orders Shipped Same Day. 
Texas Residents Add 5% Sales Tax. 


Add $10.00 lf Outside U.S.A. 


P.O. Box 470301 
Dallas, TX 75247 
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See Your Dealer 
or Call (214) 492-2027 
7 Days a Week 
Master Card & Visa Welcome 
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How It All Works 


There are two primary steps involved in installing the modified 
code in the assembler: (1) Moving the new code into the area 
of memory immediately following the assembler, and (2) Patching 
the existing assembler code to point to the new routines and 
then returning or cold-starting the system. 


The SCM80 code contains both the new Videoterm support routines 
and the routines used to install those support routines. It 
loads in at $4000, stuffs the Videoterm routines just beyond 
the assembler code, and then performs the return or cold start. 
Depending on the flavor, a few other small tasks are performed 
in the process; let's take a closer look. 


Lines 1280-1310 contain the two constants used to tailor SCM80 
to assembler flavor and Videoterm slot number. The last two 
lines are the starting addresses where the new code will be 
relocated, depending on the flavor. The LCVERSION flag is used 
to determine the base address of the assembler in lines 
1340-1380; this base address is used throughout the rest of the 
listing to determine absolute patch addresses within the 
assembler. 


The Videoterm support routines are contained in lines 
3240-3770. Lines 3400-3700 contain replacement routines for 
two of the routines in the line editor portion of the 
assembler. The NEW.WARM.ENTRY routine in lines 3240-3260 is 
intended to keep the Videoterm in the saddle during a RESET or 
system warm start. 


The code in lines 3820-4740 are replacements for some of the 
standard monitor routines. Several of these routines have no 
other purpose than to support the escape cursor movements. In 
the case of the language card flavored RDKEY, an extra 
subroutine is provided to unprotect the RAM during case-shift 
sequences (more about that in a minute). 


Lines 1770-2040 use the monitor's MOVE routine to slip the 
support routines into their designated origin at $3200 or 
SF400. The vanilla version patches the assembler's symbol 
table address to make room for the move; the language card 
version unprotects RAM prior to the move. 


The patching of the assembler is done in lines 2050-2920. 
unused code is NOP-ed out here, and jumps are strategically 
poked in to point to the new routines. A replacement escape 
jump table created in lines 2950-3090 gets installed in the 
assembler, so the new eScape routines can be accessed in the 
standard manner. The assembler's cold start routines are 
patched to point to the resilient NEW.WARM.ENTRY routine (more 
about that in a monent, too). 


Lines 2870-2920 complete the installation and patching process. 
For the vanilla version, a simple RTS returns control to the 
calling program. The language card version first write 
protects RAM and then performs a DOS cold start. Once the 
assembled code has been installed and the patches made, the 
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installation portion of SCM80 is of no use, so a cold start 
should be performed to reset the assembler's file pointers, 
leaving only the SCM80 code that is now supporting your 
Videoterm. 


Assembly and Installation 


You'll note the absence of any .TF directive in the listing, 
meaning you'll have to manually save this file when you're 
done. This is because although the resulting object code will 
be located in continuous memory, it has origins (.OR 
directives) at two locations. The actual length of the file is 
calculated by a variable called LENGTH. The instructions for 
assembly are contained in the source file's title block. I 
‘call my vanilla patch file SCM80. and the language card version 
SCM80.LC. 


With the assembler code resident in memory, there are several 
ways of installing the patches. Perhaps the most 
straightforward is to BRUN the assembled patch file, or BLOAD 
it and type 4000G as a monitor command. If you're using the 
vanilla assembler, you'll need to force a cold start of the 
assembler by typing "NEW" or 1000G as a monitor command; this 
action will ensure all the internal patches have been installed 
into DOS as well. The language card version cold starts 
itself, and requires no intervention. 


A cleaner way is to use an EXEC file. The following file will 
bring up the vanilla version of the assembler: 


REM LOAD ASM 


CALL -151 Enter the monitor 
BLOAD S-C.ASM.MACRO Load the Assembler 
BLOAD SCM80 Load the patches 
4000G Install them, and 
1000G Start the assembler! 


To load the language card patches with an EXEC file, refer to 
Bob's EXEC file on the top of Page 4 of the May "82 AAL, and 
replace "3D3G" with the following two lines: 


BLOAD SCM80.LC Load the LC patches 
4000G Install them and cold start! 


The character I/O is being vectored through routines at the end 
of the assembler; for the language card version, these routines 
are somewhere in SF4XX. If you decide to issue an "FP" command 
from that version, you'll find yourself in "Never-Never Land". 
It's good practice to issue a "PR#n" first (where "n" is the 
Videoterm's slot number). When you type "INT" to restart the 
assembler, the special I/O routines will automatically be 
hooked in. 
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DDecinion 
Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORM-DS is a complete system for the definition of input and output froms. FORM- 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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A Funny Thing Happened on the Way... 


Bob thought it would be enlightening to touch on some some of 
the crazy things that went on during the development of these 
routines. I always marvel at people like Bob, Mike, Bill, and 
Lee, who have a gift for writing machine language, and can sit 
down and bang out a line editor in a few hours. 


The rest of us aren't quite so fortunate. SCM80 took my three 
days to write, even though I had done some quick patches on 
Version 4.0. A couple of good ones popped up during that time, 
and I'll pass them along. 


I was determined to interface the Videoterm using only its 
terminal functions, avoiding any internal Videoterm ROM 
routines that would make the interface version-dependent (my 
card matches neither the descriptions nor the ROM source 
listings contained in my manual!). 


The Videoterm will not move its flashing cursor to a GOTOXY 
Location unless the cursor is first placed there and then a 
character is output; under BASIC, you can't just HTAB and VTAB 
to a position and GET a character -- you have to print a 
character first (even a null character will do it), in order to 
move the cursor! 


After spending several hours fighting with the Videoterm over 
who was controlling the input and output cursor locations, I 
finally decided to designate my own locations for CH and CV 
(normally at $24 and $25) for use by the editing routines. 


The other frustration I incurred was doing the case-switching 
in the replacement RDKEY routine. I was using the language 
card version, and had carefully checked my code, but the 
assembler just wouldn't switch case for me. True confession: 
it took almost fifteen minutes before it dawned on me that the 
assembler's case flag (at $D016) was write protected! Hence, 
the special unprotect subroutine called by the new RDKEY. 


One final note concerns the contortions in the replacement COUT 
and WARM.ENTRY routines (at least I saw these coming!). We 
need to keep our new RDKEY routine in the DOS input hook to 
keep things working predictably. The Videoterm, when installed 
by placing it in the output hook and calling it to output a 
character, takes over the input hook as well. In addition, we 
have a replacement COUT routine that is designed to detect and 
modify control characters for display prior to their output. 


In order to avoid arm-wrestling with the Videoterm over who 
controls the input hook, I used a strange but effective 
technique. During the installation and patch portion, I 
install the Videoterm in the designated slot, hook it in, and 
send a bogus character to make sure it has installed its warm 
entry I/O locations in DOS ( SAA52-SAA56 for 48K machines). 

The code immediately following uses an internal assembler 
routine to calculate the address of the DOS output hook, 
regardless of memory size. The contents of the DOS output hook 
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are then moved into the new COUT routine, immediately following 
a JMP, and the same COUT routine is forced into the DOS hook, 
along with the new RDKEY routine. Whenever a character is 
output, it will first be given to COUT; when COUT has done its 
work, the character is then passed to the Videoterm's warm 
entry. 


During the installation and patch, the warm start vector within 
the assembler was modified to point to the NEW.WARM.START 
routine, which re-installs COUT and RDKEY, keeping everything 
in sync. A RESET will always restore this condition, no matter 
what the Videoterm may have in mind! 


The S-C Macro Assembler is a wonderful piece of software, and 
the upgrade is a steal at $27.50. The only thing that can top 
it is being able to use it with 80 columns of display! 


If you find any errors in my patches, or come up with some new 
features, contact me at (206) 779-9508. 


Plug-in compatibility 


Supercharge Your APPLE II* 


320K bytes of RAM (200NS) memory designed 
to function like two 35 track floppy disk drives 


Compatible with Apple DOS 3.3 and Apple 
Pascal 1.1 


Same size as the Appie Disk II* Drive 


Invisible memory refresh - even with the Apple 
turned off 


Rechargeable battery system built-in to pro- 
The Axion RAMDISK™ 320K Memory System for 


the Apple tl and Apple |i Plus* provides access 
speeds never before available. The Axlon memory 
system is designed to interact with Apple DOS 
3.3* and Apple Pascal 1.1° like two standard flop- 
py disk drives while delivering the lightning fast 
access speeds of RAM memory. This also leaves 
32K of RAM for advanced programming techni- 
ques. The interface board is slot independent and 
GrawsS no power from your Apple. The 
rechargeable battery system built into the unit 
provides three hours of backup in the event of a 
power toss. Drop by your local Apple dealer or 
contact Axion, inc. for more information. 


* Trademark of Apple Computer, Inc. 
* Pascal is a Trademark of U.C.S.D. Regents 


vide 3 hours of auxiliary power 


Slot independent interface board - draws no 
power from your Apple 


All firmware is in static RAM on the interface 
board 


Includes software for diagnostic, fast load and 
copy routines, and business applications 


170 N. Wolfe Road, 
Sunnyvale, CA 94086 


AXLON (408) 730-0216 
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Isn't it time that you found out the true story 
behind the most controversial user-oriented 
computer magazine around today? Over 64 
pages of facts, programming aids and pro- 
gram listings that includes columns on HOW TO: 
4. Copy-protect disks, 2. Normalize “unlistable”’ 
programs, 3. Use bit-copy programs to make 
back-ups of the “uncopiables,” 4. Write your 
own adventure-arcade games, 5. Market your 
software, and 6. Learn all about DOS. 


HARDCORE COMPUTING 
Dept. AL-4 

PO. Box 44549 

Tacoma, WA 98444 


NAME 


tae | 


The most controversial 
computer magazine 
for serious Apple-Users. 


“HARDCORE 


Computing 


“HARDCORE Computing ... warns pirates 
about the latest technology that companies 
are using against them.” TIME, Feb. 8, 1982 


“When some Apple enthusiasts ... heard 
about the boycott (of bit-copy ads), they con- 
cluded that it was nothing but censorship and 
another example of the magazines ignoring 
the average Apple user to placate their adver- 
tisers. So they started their own publication, 
HARDCORE Computing .. ."’ ESQUIRE, Jan. 1982 


ee eee 


Subscriptions: 


ADDRESS ~————_-_____—SeeSeeSeeeeeee ers 
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$20.00 U.S.A. $28.50 Canada 
$32.50 Mexico $42.00 Others 
zip 
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Review of "Apple Graphics & Arcade Game Design" 


If you are at all interested in Apple graphics, or writing 
animated hi-res games, this book is for you. Jeffrey Stanton, 
the author, may already be known to you. He is the editor of 
"The Book of Apple Software, and also has several Apple arcade 
games on the market. "Apple Graphics & Arcade Game Design" 
(AGAG) is 288 pages long, and retails for $19.95. (I am 
selling it for $18 plus shipping.) A coupon in the back 
enables you to purchase all of the source code shown in the 
book on diskette for only $15. 


There are two parts to the book: first, a thorough explanation 
of Apple graphics, with numerous examples in both Applesoft and 
assembly language; second, design and programming of all the 
parts of a working arcade game. 


AGAG is written for the advanced Applesoft or beginning 
assembly language programmer. You learn about both lo-res and 
hi-res graphics at the assembly language level. You learn the 
fundamentals, and then proceed to program scene scrolling, page 
flipping, laser fire, bomb drops, explosions, scoring, and 
paddle control routines. Sorry, nothing much about sound 
generation. 


AGAG'sS pages are divided into 8 chapters as follows: 


( 25 pages) Applesoft Hi-Res 

2. ( 34 pages) Lo-Res Graphics 

3. ( 17 pages) Machine Language Access to Applesoft 
Hi-Res Routines 

23 pages) Hi-Res Screen Architecture 

36 pages) Bit-Mapped Graphics 

pages) Arcade Graphics 

44 pages) Games that Scroll 

5 pages) What Makes a Good Game 


Ct ae te he ae) 
vo] 
Oo 


I noticed a few errors in the book: on page 149, flow chart 
lines are incorrectly drawn; on page 284, there is a large 
block of repeated text, and therefore possibly a missing block 
which should have been in the space. The word “initialize” is 
always incorrectly spelled “initilize". The index is very 
brief, only about 70 lines long; I believe it should be about 3 
or 4 times longer to really help in locating items of interest. 


Jeff does not seem to know about the existence of the S-C Macro 
Assembler. He repeatedly mentions the TED, Big-Mac, Merlin 
Assemblers, and occasionally refers to Lisa and DOS ToolKit. 
All the listings are in the Big-Mac format. You should have no 
trouble adapting them to the S-C format. 


AGAG is an excellent tutorial. and includes many useful 
programs and ideas for anyone interested in Apple graphics. I 
heartily recommend the book, ranking it just under “Beneath 
Apple DOS" in importance and utility. 
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Quick Way to Write DOS on a DisSk.........+-+..eBOb Perkins 
Tussy, OK 73088 


I just received the July AAL and liked the little article on 
the "FILEDUMP" command. I had already done just about the same 
thing. 


In fact, I make a lot of changes to DOS. Too many to POKE in 
every time I boot up. So I started looking around for a simple 
way to replace the DOS image on a disk without disturbing the 
programs already on it, and without using MASTER.CREATE. The 
July Call A.P.P.L.E. had a program to do it, only it seems much 
more complicated than my solution. 


I used the S-C Macro Assembler to create a text file like this: 


:1000 LOAD HELLO 

21010 POKE -21921,0:POKE -18448,0:POKE 
-18447,157: POKE-18453.0:CALL-18614 
sTEXT WRITE.DOS 


Note the leading blank before the LOAD and the first POKE. It 
is there to leave room for Applesoft's "]" prompt. 


Whenever I want to write the DOS image on a disk, I use the 
SHOW command to list out WRITE.DOS, and then trace over the two 
command lines from Applesoft. Presto-Changeo, a new copy of 
DOS goes out to the disk. I suppose you could even EXEC it, 
though I prefer to trace over it and haven't tried EXECing. 


The LOAD HELLO is there to get the boot file name into DOS's 
filename buffer. You can use whatever filename you want, of 
course. POKE-21921 tell DOS that the last command was an INIT 
for its startup procedure (i.e. AAS5SF:00). POKE-18448 and 
-18447 start the write at 9D00 (B7F0:00 9D). POKR -18453 sets 
the expected volume number to zero, so a match to any volume 
will occur (B7EB:00). The CALL is to the “write DOS image” 
code inside DOS. 


Correction 


Last month I described the BIT instruction incorrectly. The 
next to the last paragraph on page 2 (in "Run-Anywhere 
Subroutine Calls") should read: 


The BIT instruction copies bit 7 of SFF58 into the 
N-status bit, and bit 6 into the Overflow status 
bit. This, in other words (since S$FF58 has $60 in 
it) clears N and sets Overflow. 


BIT does not affect Carry Status in any way. BIT also sets or 
clears the Z-status bit, according to the value of the logical 
product of the A-register and the addressed byte. If you want 
Z and/or N to be flags to the calling program, you will have to 
modify them after the BIT instruction. 
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Large Source Files and the S-C Macro Assembler......Bill Morgan 


One of the more common questions we get is: "How do I best use 
the .IN and .TF directives to handle very large programs?" 


The main technique we use is the Assembly Control File (ACF), a 
short source file which is mostly made up of .IN statements to 
call the other modules. Here is an example, called SAMPLE.ACF: 


1000 ~IN SAMPLE.EQUATES 
1010 PG 

1020 ~IN SAMPLE.CODE.1 
1030 PG 

1040 ~IN SAMPLE.CODE.2 
1050 -PG 

1060 eIN SAMPLE.DATA 
1070 PG 


SAMPLE.EQUATES is all the definitions for the progran, 
SAMPLE.CODE.1 and SAMPLE.CODE.2 are the main body of the 
program, and SAMPLE.DATA contains all the variables and ASCII 
text. When you want to assemble the program, just LOAD 
SAMPLE.ACF and type MON C then ASM. The Macro Assembler will 
load each file and assemble it, in the order they are listed in 
the ACF. The "MON C" shows you the “LOAD file name" for each 
file, helping you to tell what's where. 


Using this technique, a program can conveniently be broken into 
as many modules as you want, and can be as large as you want. 
The Macro AsSembler itself is 26 source files on two disks! To 
Spread the files across more than one disk, just add drive 
(and/or slot) specifiers to all the file names. 


You can also use the ACF to do global search-and-replace 
operations on the entire program. Here are the commands to 
search SAMPLE for all occurences of the label MON.COUT: 


:LOAD SAMPLE.ACF 


:REP / - IN/LOAD/A 

:REP / »PG/FIND "MON.COUT"/A 
sTEXT COUT.SEARCH 

sMON I 


sEXEC COUT.SEARCH 


This converts SAMPLE.ACF into an EXEC file that will list each 
occurence of "MON.COUT" in every module of the program. Here's 
what the file looks like now: 


1000 LOAD SAMPLE.EQUATES 
1010 FIND "MON.COUT"” 
1020 LOAD SAMPLE.CODE.1 
1030 FIND "MON.COUT" 
1040 LOAD SAMPLE.CODE.2 
1050 FIND "MON.COUT" 
1060 LOAD SAMPLE.DATA 
1070 FIND "MON.COUT" 
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The ACF is also a good place for the .OR and .TF statements, 
comments about the assembly process, and any condition flags. 
Here is a more complicated version of SAMPLE.ACF: 


L000 *aSSseSsesa8 SSS a= SS osSHS 4 ees ee = 
1010 * SAMPLE FILE TO DEMONSTRATE ACF 
VO20 Sateen ese a Ss Seer See = 
1030 LC.FLAG .EQ 0 =0 IF UPPER CASE ONLY 
1040 * =] IF LOWER CASE VERSION 
L050) = SSS 8S o SS See SS Sees eee esses 
1060 -OR $803 

1070 ~DO LC.FLAG 

1080 -TF B.SAMPLE.LC 

1090 » ELSE 

1100 ~TF B.SAMPLE.UC 

1110 ~FIN 

L120) SSeS 255 Soe SeeS eee SSeS 52-2 5= 
1130 ~-IN SAMPLE. EQUATES 

1140 PG 

1150 -IN SAMPLE.CODE 

1160 PG 

1170 ~DO LC.FLAG 

1180 eIN SAMPLE. LOWER.CASE.ROUTINES 
1190 ~PG 

1200 - ELSE 

1210 ~IN SAMPLE.NORMAL.ROUTINES 
1220 ~ PG 

1230 ~FIN 

1240 ~IN SAMPLE.DATA 

1250 «PG 


To use this ACF, just LOAD it, EDIT line 1030 to set LC.FLAG to 
0 or 1, set MON C, and ASM. The Macro Assembler will load the 
appropriate source files for the version you want and direct 
the object code to the correct target file. To turn this ACF 
into an EXEC file for searching, you must delete lines 
1000-1120, 1170, 1200, and 1230 before doing the REP commands. 


For more information on the .IN and .TF directives, see pages 
4-6 and 5-3/4 in the Macro Assembler manual. Conditional 
assembly is discussed on pages 5-9/10 and in chapter 7. 


Another Customizing Patch for the S-C Macro Assembler 


Version 4.0 of the S-C Assembler stopped after any assembly 

error. Many users requested that I modify it to continue to 
the end of assembly, and display the error count at the end. 
So I did. 


Now some users are requesting that I change it back. They walk 
away during assembly, and the error messages scroll off the 
screen. (But you can put .LIST OFF at the beginning, and then 
only the error lines will list.) 


There is a very simple patch for this. The byte at S$1D6F 


($SDD6F in the language card version) is now $18. Change it $38 
and assembly will stop after the first error message, 
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Patch for S-C Macro Assembler...........-Bob Sander-Cederlof 


When I added the lower-case options to the S-C Macro Assembler, 
I overlooked the fact that within .AS and .AT strings, and in 
ASCII literal constants, you would want lower case codes to be 
assembled. The assembler as it now is converts all lower case 
codes to upper case during assembly. For example, ".AS 
/Example/" would assemble all upper case ASCII, just as though 
you had written *.AS /EXAMPLE/" 


The following patches will correct this problem, allowing you 
to specify lower case strings and constants when you wish. 


$2961:EA EA EA EA EA EA 
$31B8<1235.124BM 


$1074:B8 31 
$118C:B8 31 
$11B2:B8 31 
$187F:B8 31 
$23FA:B8 31 


$31CF:C8 84 7B C9 60 90 04 29 5F 85 61 60 
$1240:20 CF 31 


BSAVE ASM.WITH.LC.IN.AS,A$1000,L$21DB 
(or whatever file name you wish) 


The patches above are for the version which runs in 
mother-board RAM. The Language card version has different 
addresses, and you must first write-enable the language card. 
Assuming you are currently running the language card version, 
perform the patch as follows: 


$C083 C083 
SEAAD:EA EA EA EA EA EA 


$P304<D235 .D24BM 


$D074:04 F3 
$D18C:04 F3 
$D1B2:04 F3 
SD87F:04 F3 
$E546:04 F3 


SF31B:C8 84 7B C9 60 90 04 29 5F 85 61 60 
$D240:20 1B F3 


BSAVE LC.ASM.WITH.LC.IN.AS,AS$D000,L$2327 
(or whatever file name you wish) 


Be aware that the above patches may conflict with other patches 
you may already have applied to your copy of the assembler. If 
you have already used the area from $31B8 through $31DB, or 
SF304 through S$F326. you will need to use a different area and 
change the references accordingly. 
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Blinking Underline Cursor Routine.......eeeeeeeeeeeeBill Linn 


Early users of the ES-CAPE Applesoft Editing system (formerly 
known as AED II) have really come to appreciate the blinking 
underline cursor -- it simply doesn't tire the eyes as much as 
the standard flashing blank does. With the following 
subroutine, you can add this special touch to your own assembly 
language or BASIC programs! 


The subroutine hooks into the monitor keyboard input vector at 
$38 and $39. Each time the monitor RDKEY subroutine is called, 
my KEYIN subroutine gets control. If the character on the 
screen at the cursor position is not an underline, I alternate 
the display of an underline and the original character every 
1/4 second. If the original character was an underline, I 
alternate it with a blank. (If I alternate an underline with 
an underline, it is difficult to see anything happen!) 


Lines 1210-1250 store the KEYIN subroutine's address in the 
keyboard input vector. When a request for a key press is made 
by an Applesoft INPUT command, for example, we get control at 
line 1270. The A-register has the current screen character. I 
save the A- and X-registers, because KEYIN must exit with the 
Original values unchanged. 


Lines 1290-1320 test the current screen character to see 
whether it is already an underline or not. If it is, I use a 
blank for the alternating character. Otherwise, I use the 
Original screen contents for an alternating character. I push 
the alternating character onto the stack. 


Lines 1330-1500 do the alternating. I look at the character on 
the screen: if it is an underline. I substitute the 
alternating character; if not, I store an underline. The lines 
1430-1500 delay for about 1/4 second before the next 
alternation. If a keypress occurs, the loop ends by branching 
to ".5" at line 1540. You may wish to vary the blink rate by 
changing the value loaded into the Y-register at line 1430. 


When a key is pressed we end up at line 1540, where I pop the 
alternating character off the stack. The I call the monitor 
bell subroutine for a short (10 half-cycles) bell. This makes 
an audible "click" for user feedback. (If you don't appreciate 
clicking keyboards, just delete lines 1550 and 1560.) Then I 
restore the Y-, X-, and A-registers to their orignal values, 
and jump into the monitor's KEYIN subroutine at $FD26. The 
monitor restores the original character to the screen, and 
returns with the keypress value in the accumulator. 


I have set the subroutine origin to $300, but you can assemble 
it anywhere you like. In fact, it will run anywhere you put 
without reassembly, just so you load the correct address into 
$38 and $39 in the HOOK routine. 
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S&H Software 


sents Apple Il users 
with two chances 
to increase 


speed and productivity 


up to 500%. 4 


Universal Boot initializer 4.0 will 
work up to 500% faster than 
standard Apple DOS 3.3...$69.95 


The new UBI 4.0 now includes The DOS Enhancer, a DOS 
transparent routine that allows execution of Apple DOS 3.3 files (In- 
teger, Applesoft and Binary) up to 500% faster than standard Apple 
DOS—depending on file length. In addition, a new “FREE'’ command 
in DOS now atiows determination of free space on a disk in “‘any siot, 
any drive’’—from the command mode or the program mode. 

UBI 4.0-created disks increase efficiency by breaking the “language 
barrier’ between Apple Ii hardware and software and breaking the 
“time barrier’ by loading the RAM card with FPBASIC/INTBASIC (or 
leading assemblers) in 1.7 seconds. This unique combination of 
features greatly increases productivity: copyable disks, one-stage 
booting with DOS 3.3 or DOS 3.2.1 PROMS, fast-loading the RAM card 
with the ‘‘missing BASIC”’ (or your favorite utility), fast{B)JRUNning or 
fast{B)LOADing your programs and complete compatibility with all 
DOS 3.3 programs. ; 

The new UBI 4.0 package includes the utility disk, training disk, sup- 
port disk, demo disk and complete documentation. System re- 
quirements: Apple |I or Apple !I Plus, ROM or RAM card, DOS 3.3 or 
3.2.1 and one or more disk drives. 


Amper-Sort/Merge (A-S/M) works 
up to 500% faster than even 
VisiCorp’s VisiFile™ program...$52.95 


The fastest ‘‘file clerk’ you've ever met. Of ail the sort utilities 
developed to manage Appie |i data files, none does the job nearly so 
fast as Amper-Sort/Merge. 


Here’s a quick profile of “A-S/M"": With 25K of working memory, one 
of five unsorted files can be sort/merged into a single file of up to 125K 
per disk. If a file to be sorted is more than 25K in length, the utility tem- 
porarity lays it aside to be sorted and merged when more memory 
space is available. 


Because sorting routines take up to 50% of the computer running 
time in many business applications, you'll reap continuing benefits hav- 
ing this “‘invistole speed demon” on your Apple tl team. We estimate 
that it will save twenty to thirty minutes a day of your “human” clerk's 
time—time that would otherwise be spent waiting for ‘‘sort/merge” 
operations. 

The A-S/M ‘speed demon" package includes the utility disk, the 
training disk and 24 page instruction manual. System requirements: 
48K Appie il, ROM or RAM card, DOS 3.3 and one or more disk drives 
of 48K Appie |i Plus, DOS 3.3 and one or more disk drives. 


To Order: Send Check To S&H Software, Box 5, Manve!, ND 58256 Credit Cards: Phone Cybertronics International Clearinghouse at 212 532-3080. 


Box 5 Manvel ND 68256 
(701) 698-2574 
onan. FI 
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After assembly, assuming it is origined at $300, you can BSAVE 
it with "BSAVE B.UNDERLINE,A$300,L$3C. Then to activate this 
routine from Applesoft, just BRUN the file B.UNDERLINE. All 
keyboard input through the standard monitor RDKEY subroutine 
(SFDOC) or Applesoft GET and INPUT statements will be prompted 
by the underline cursor. An “IN#0" will restore the familiar 
flashing blank. Have fun! 


1000 #SAVE S.UNDERLINE CURSOR 
1020 # BLINKING UNDERLINE CURSOR 
1030 a WRITTEN BY BILL LINN 
10N0 ‘Seeeeeco cco ces cect eae eceanseeece 
1090 .OR $300 
0024~ 1070 MON .CH -EQ $24 
0028- 1080 MON.BASL .EQ $28 
OOLE- 1100 MON.RNDL = EQ $HE 
FBE4- 1120 MON.BELL2 .EQ $FBE4 
FCA8- 1130 MON.WAIT  .EQ $FCA8 
FD26- 1 0 MON.KEYIN3 .EQ $FD26 
OOA0~ 1120 BLANK .EQ $A0 
OODF- 1170 UNDERLINE .EQ $DF 
co00- 1190 KEYBOARD .EQ $C000 
0300- A9 O 1210 HOOK LDA #KEYIN SET INPUT HOOK 
0302- 85 3 1220 STA MON. KSWL 
O304- AQ 03 1230 LDA /KEYIN 
te e 39 een Si MON .KSWL+1 
: 160 Moats ts eee ee ect 
0309- 48 1270 KEYIN PHA SAVE SCREEN CHAR 
O30A- 86 HE 1280 STX MON. RNDL SAVE X-REG 
030C- C9 DF 1290 CMP #UNDERLINE IF CHAR ON SCREEN IS 
O30E~ DO 02 1300 BNE .1 AN UNDERLINE 
0310- Ag AO 1310 LDA #BLANK THEN ALTERNATE WITH BLANK 
0312- 20 1 PHA SAVE CHAR TO ALTERNATE 
1310 : ALTERNATE UNTIL KEY IS PRESSED 
0 13- AQ DF 1360 .2 LDA #UNDERLINE 
0315- A 2h 1370 LDY MON.CH 
LG oh 3H 1206 eal ee SAS) at 
031B- 68 1800 PLA GET ALTERNATE CHAR 
031C- 48 1410 PHA MAINTAIN ON STACK ALSO 
031D- 91 28 1420 . STA (MON . BASL } Y 
O31F- AO 50 14130 LDY #80 68256 BETWEEN BLINKS 
0321- AD 00 CO 1440 .4 LDA KEYBOARD KEY PRESSED? 
0324~ 30 08 1450 BMI .5 YES, CLICK AND RETURN 
0326- CA 1460 DEX 
O27 BR Fe tide aa 
O32k- DO F5 1490 BNE .4 
032C- FO E5 1900 ; BEQ .2 .. ALWAYS 
1320 * A KEY HAS BEEN PRESSED 
032E- 68 12Ro 5 PLA POP STACK ONCE 
O32F~ AO OA 1550 LDY #10 MAKE A "CLICK" 
ce Gio ecg tDY MONCH” 
0336- A6 HE 1260 LDX MON. RNDL RESTORE X-REG 
0338- 68 1590 PLA RESTORE ORIGINAL SCREEN CHAR 
0339- 4C 26 FD 1600 JMP MON.KEYIN3 
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Review of OUICK TRACE 6. 6:0 66-646 6.50 060-6 ele aw sew eee es seLKe Sanders 


I had already started writing my own debugger when I discovered 
raha it was just what I needed and saved me all that 
work. 


It has a good display that does not interfere with the normal 
Apple text screen. You can even trace code that sets the KSWL 
and CSWL switches and outputs to the screen. The tracing 
display takes the bottom four lines, but pressing the "P" key 
causes the normal bottom four lines to be displayed. 


Tracing can be in one of three modes: single-step, trace, and 
background. Single-step and trace are what you would expect, 
analogous to the commands in the old Apple monitor ROM. 
Background turns off the display of executed instructions until 
a breakpoint occurs or the “ESC" key is pressed. This makes 
background the fastest mode. 


Breakpoints can be set to stop when: 


l. Any register or a memory location takes on a specified 
value. 

2. An address or a range of addresses is referenced. 

3. A specified opcode occurs. 


QUICKTRACE can be BRUN at any point in memory and then called 
from your code by a JSR, or you can preset the QUICKTRACE 
program counter and start tracing at any location. 


Subroutines can be executed at full 6502 speed (not traced). 

If you already know what the subroutine does there is no need 
to trace through it. Normally DOS calls are automatically done 
this way to prevent timing problems. 


Overall I feel that QUICKTRACE is one of the five or so best 
programs I have ever purchased and no machine code programmer 
should be without it. 


One feature not to be overlooked: QUICKTRACE is not copy 
protected. 


QUICKTRACE was programmed by John Rogers and it is distributed 
by Anthro-Digital Software (formerly called Aurora Systems). 
It only costs $50. 


Current Advertising Rates 


For the September 1982 issue the price will be $60 for a full 
page, $35 for a half page. To be included, I must receive your 


camera-ready copy by August 20th. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P. O. 
Box 280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is 
$15 per year in the USA, sent Bulk Mail; $18 per year sent First Class Mail in 
USA, Canada, and Mexico; $28 per year sent Air Mail to other countries. Back 
issues are available for $1.50 each (other countries add $1 per back issue for 
postage). All material herein is copyrighted by S-C SOFTWARE, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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